home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / CUGUK / APPLICAT / C034.ZIP / DBQAMS.C < prev    next >
Text File  |  2010-11-01  |  3KB  |  193 lines
  1. /* SDB - AMSTRAD specific procedures and error messages */
  2.  
  3. #include "bdscio.h"
  4. #include "dbqdefs.h"
  5.  
  6. int getcx(fp)
  7.     FILE *fp;
  8. {
  9.     int ch, i;
  10.  
  11.     if (fp!=STDIN)
  12.         if ((ch = getc(fp)) == '\r') {
  13.             if (dbv_verify) {
  14.                 putchar(ch);
  15.                 putchar('\n');
  16.                 }
  17.             return (getc(fp));
  18.             }
  19.         else {
  20.             if (dbv_verify)
  21.                 putchar(ch);
  22.             return (ch);
  23.         }
  24.  
  25.     if (*pbuf > 0)
  26.         return *pbuf++;
  27.  
  28.     pbuf = gbuf;
  29. /* TEMP
  30.     for (i = 0; (ch = getc(fp)) != -1; )
  31.         if (i < LINEMAX) {
  32.             if (ch == ESC) {
  33.                 i = 0;
  34.                 putchar('\n');
  35.                 fflush(STDOUT);
  36.             }
  37.             else
  38.             if (ch == BS) {
  39.                 if (i > 0) {
  40.                     printf("\010\033\116\010\033\116");
  41.             /* That should be 010 020 010 020 for CPM 2.2 */
  42.  
  43.                     i--;
  44.                     }
  45.                 }
  46.                 else
  47.                     gbuf[i++] = ch;
  48.             if (ch == '\n') break;
  49.             }
  50.         else {
  51.             printf("*** line too long ***\nRetype> ");
  52.             i = 0;
  53.         }
  54.     gbuf[i] = EOS;
  55. */
  56.     linein(gbuf);
  57.     return getcx(fp);
  58. }
  59.  
  60. linein(lbuf)
  61. char *lbuf;
  62. {
  63.     char ibuf[256];
  64.     int ilen;
  65.  
  66.     ibuf[0] = LINEMAX;
  67.     ibuf[1] = 1;
  68.     ibuf[2] = 0;
  69.     bdos(10,&ibuf);
  70.     ilen = ibuf[1];
  71.     ibuf[ilen+3] = EOS;
  72.     ibuf[ilen+2] = 10;
  73.     strcpy(lbuf,&ibuf[2]);
  74.     if (dbv_logging)
  75.         fputs(lbuf,dbv_lfp);
  76.     putchar('\n');
  77. } 
  78.  
  79. strncpy(to, from, n)
  80.     char *to, *from;
  81.     int n;
  82. {
  83.     char *cp;
  84.  
  85.     for( cp=to; n-- && (*cp++ = *from++); ) ;
  86.     if (n < 0)
  87.         *cp = 0;
  88.     return (to);
  89. }
  90. /*    We'll use our own, thanks
  91. int strncmp(s1, s2, n)
  92.   char *s1, *s2;
  93. {
  94.   if (!n) return 0;
  95.   while (*s1 == *s2)
  96.     {
  97.       if ( ! *s1) return 0;
  98.       if ( ! --n) break;
  99.       ++s1;  ++s2;
  100.     }
  101.   return *s1 - *s2;
  102. }
  103. */
  104. strncmp(s1, s2, n)
  105.     char *s1,*s2;
  106.     int n;
  107. {
  108.     for ( ; n-- && (*s1 == *s2); s2++ )
  109.         if (!*s1++)
  110.             return (0);
  111.     if (n < 0)
  112.         return 0;
  113.     if (*s1 < *s2)
  114.         return -1;
  115.     return 1;
  116. }
  117.  
  118. /*    error routine        */
  119.  
  120.  
  121. char *db_ertxt(msg)
  122.  int msg;
  123. {
  124.     char *txt;
  125.  
  126.     switch (msg) {
  127.     case INSMEM:
  128.         txt = "memory full";
  129.         break;
  130.     case RELFNF:
  131.         txt = "database file not found";
  132.         break;
  133.     case BADHDR:
  134.         txt = "bad file header";
  135.         break;
  136.     case TUPINP:
  137.         txt = "reading record";
  138.         break;
  139.     case TUPOUT:
  140.         txt = "writing record";
  141.         break;
  142.     case RELFUL:
  143.         txt = "database full";
  144.         break;
  145.     case RELCRE:
  146.         txt = "creating database";
  147.         break;
  148.     case DUPATT:
  149.         txt = "field name duplicated";
  150.         break;
  151.     case MAXATT:
  152.         txt = "too many fields";
  153.         break;
  154.     case INSBLK:
  155.         txt = "disk full";
  156.         break;
  157.     case SYNTAX:
  158.         txt = "syntax error";
  159.         break;
  160.     case ATUNDF:
  161.         txt = "field not defined";
  162.         break;
  163.     case ATAMBG:
  164.         txt = "field name ambiguous";
  165.         break;
  166.     case RLUNDF:
  167.         txt = "database name undefined";
  168.         break;
  169.     case CDSIZE:
  170.         txt = "expression too complex";
  171.         break;
  172.     case INPFNF:
  173.         txt = "input file not found";
  174.         break;
  175.     case OUTCRE:
  176.         txt = "creating output file";
  177.         break;
  178.     case INDFNF:
  179.         txt = "command file not found";
  180.         break;
  181.     case BADSET:
  182.         txt = "set parameter unknown";
  183.         break;
  184.     default:
  185.         txt = "bad error number";
  186.         break;
  187.     }
  188.  
  189.     return (txt);
  190. }
  191. ADSET:
  192.         txt = "set parameter unknown";
  193.         b